<!--#include file="Ini.asp"-->

<% Response.Charset="ISO-8859-1" %> 
<%

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open sCo1, sCo2, sCo3

DESTINO = TRIM(REQUEST("D_HOTEL"))
ID = ""
IF LEN(DESTINO) > 4 THEN
  MESTADO=MID(DESTINO,1,2)
  MCIDADE=MID(DESTINO,4,LEN(DESTINO)-5)
  ID = MID(DESTINO,LEN(DESTINO),1)
ELSE
  MESTADO=""
  MCIDADE=""
END IF

SSQL="select CONTADOR,HOTEL,BAIRRO from HOTEIS WHERE ESTADO='"& MESTADO &"' AND CIDADE='"& MCIDADE &"' ORDER BY HOTEL,BAIRRO"
set Rs = server.createObject("ADODB.Recordset")
Set rs=conn.execute(SSQL)      

%>
<select name="HOTEL_<%= ID %>" style="width:200px; font-size:10px;">
  <option selected="selected" value="">Selecione um destino...</option>
<%
  Do while not rs.eof
	%><option value='<%=RS("CONTADOR") %>'><% = TRIM(RS("HOTEL")) &"-"& RS("BAIRRO") %></option><%
	RS.MOVENEXT
  Loop 
Rs.Close
%>
</select>